home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / prodia21.zip / P.ASP < prev    next >
Text File  |  1988-05-26  |  13KB  |  642 lines
  1. ;***************************************************************************
  2. ;*  Quick ProDial for PC Pursuit                                           *
  3. ;*  PROCOMM 2.4, PROCOMM+ COMMAND FILE FOR DIALING PC PURSUIT AND BBS'S!   *  
  4. ;*                                                                         *
  5. ;*  Uses NEW PC Pursuit City codes!                                        *
  6. ;*  Name this file .CMD for PROCOMM or .ASP for PROCOMM PLUS <------       *
  7. ;*                                                                         *
  8. ;*  Customize BBS Menu at end of file!!!                                   *
  9. ;*                                                                         *
  10. ;*  File P.KEY (Keyboard Macros) contains:                                 *
  11. ;*     ALT 0 - PC Pursuit Password                                         *
  12. ;*     ALT 8 - Baud Rate Code (3=300,12=1200)                              *
  13. ;*     ALT 9 - PCPursuit User ID                                           *
  14. ;*                                                                         *
  15. ;*  Modified by F. Schwartz, Virtusonics Corp., NY                         *
  16. ;*  THANKS to the authors of VERSA, PCP, etc. whose code is partially used!*
  17. ;***************************************************************************
  18. SET ENQ OFF
  19. SET PARITY EVEN
  20. SET DATABITS 7
  21. SET DUPLEX FULL
  22. MLOAD"P.KEY"
  23. GOTO TI
  24. ;
  25. NR:
  26. CLEAR
  27. TRANSMIT"C PURSUIT,"
  28. MACRO 9
  29. TRANSMIT","
  30. MACRO 0
  31. TRANSMIT"^M"
  32. RGET S8
  33. RGET S8
  34. RGET S8
  35. FIND S8"CONNECTED"
  36. IF FOUND
  37. GOTO BC1
  38. ENDIF
  39. MESSAGE"Hit Q to Quit and return to menu"
  40. WAITFOR"Q" 2
  41. IF WAITFOR
  42. TRANSMIT"^M"
  43. CLEAR
  44. MESSAGE"Redial cancelled^M"
  45. GOTO MENU
  46. ENDIF
  47. GOTO NR
  48. ;
  49. CR:
  50. CLEAR
  51. TRANSMIT"C D/"
  52. TRANSMIT S1
  53. TRANSMIT"/"
  54. MACRO 8
  55. TRANSMIT","
  56. MACRO 9
  57. TRANSMIT","
  58. MACRO 0
  59. TRANSMIT"^M"
  60. RGET S8
  61. RGET S8
  62. RGET S8
  63. FIND S8"CONNECTED"
  64. IF FOUND
  65. MESSAGE"^G"
  66. GOTO L3
  67. ENDIF
  68. MESSAGE"Hit Q to Quit and return to menu"
  69. WAITFOR"Q" 3
  70. IF WAITFOR
  71. TRANSMIT"^M"
  72. CLEAR
  73. MESSAGE"Redial cancelled^M"
  74. GOTO MENU
  75. ENDIF
  76. GOTO CR
  77. ;
  78. BR:
  79. CLEAR
  80. TRANSMIT"R^M"
  81. RGET S8 18 10
  82. BR1:
  83. TRANSMIT"^M"
  84. WAITFOR"DIALING..."8
  85. IF NOT WAITFOR
  86. GOTO BR
  87. ENDIF
  88. ;
  89. BB:
  90. RGET S8 2 70
  91. BB1:
  92. FIND S8"CO"
  93. IF FOUND
  94. GOTO BC
  95. ENDIF
  96. FIND S8"AN"
  97. IF FOUND
  98. GOTO BC
  99. ENDIF
  100. FIND S8"RI"
  101. IF FOUND
  102. GOTO BB
  103. ENDIF
  104. FIND S8"BU"
  105. IF FOUND
  106. GOTO BR
  107. ENDIF
  108. FIND S8"DI"
  109. IF FOUND
  110. GOTO BR
  111. ENDIF
  112. FIND S8"FA"
  113. IF FOUND
  114. GOTO BR
  115. ENDIF
  116. MESSAGE"Hit Q TWICE to Quit and return to menu"
  117. RGET S8 2 30
  118. FIND S8"Q"
  119. IF FOUND
  120. PAUSE 1
  121. TRANSMIT"I^M"
  122. MESSAGE"Redial cancelled^M"
  123. PAUSE 2
  124. GOTO PH
  125. ENDIF
  126. GOTO BB1
  127. ;
  128. BC:
  129. SET PARITY NONE
  130. SET DATABITS 8
  131. BC1:
  132. ALARM 2
  133. ;  THIS IS THE EXIT POINT WHEN SUCCESSFUL CONNECTION! <-----
  134. EXIT
  135. ;
  136. OFF:
  137. CLEAR
  138. IF NOT CONNECTED
  139. GOTO OFF1
  140. ENDIF
  141. SWITCH S0
  142. CASE"1"
  143. GOTO OFF1
  144. ENDCASE
  145. CASE"2"
  146. GOTO D2
  147. ENDCASE
  148. CASE"3"
  149. GOSUB D3
  150. GOTO MENU
  151. ENDCASE
  152. ENDSWITCH
  153. ;
  154. D3:
  155. CLEAR
  156. MESSAGE"Disconnecting from remote city..."
  157. TRANSMIT"I^M"
  158. WAITFOR"IDLE"4
  159. PAUSE 1
  160. BREAK
  161. WAITFOR"@"5
  162. TRANSMIT"^M"
  163. IF NOT WAITFOR
  164. TRANSMIT"^M@^M"
  165. ENDIF
  166. WAITFOR"@"5
  167. TRANSMIT"D^M"
  168. WAITFOR"@"5
  169. MESSAGE"^M^J^M^J"
  170. PAUSE 1
  171. ASSIGN S0"2"
  172. RETURN
  173. ;
  174. D2:
  175. MESSAGE"Disconnecting from Local Telenet..."
  176. TRANSMIT"HANG^M"
  177. WAITFOR"@"3
  178. IF WAITFOR
  179. GOTO D2
  180. ENDIF
  181. MESSAGE"^M^J"
  182. ;
  183. OFF1:
  184. MLOAD"PROCOMM.KEY"    ;ASSURE THAT ONE OR THE OTHER GETS RELOADED
  185. MLOAD"PCPLUS.KEY"
  186. MESSAGE"ProDial finished"
  187. EXIT
  188. ;
  189. TI:
  190. CLEAR
  191. LOCATE 2,0
  192. MESSAGE"                       ╔═══════════════════════════════╗"
  193. MESSAGE"                       ║                               ║"
  194. MESSAGE"                       ║     ProDial for PC Pursuit    ║"
  195. MESSAGE"                       ║                               ║"
  196. MESSAGE"                       ╚═══════════════════════════════╝"
  197. LOCATE 14,0
  198. MESSAGE"Determining PC Pursuit level . . .^M^J"
  199. IF NOT CONNECTED
  200. MESSAGE"Modem is currently offline"
  201. ASSIGN S0"1"
  202. PAUSE 1
  203. GOTO MENU
  204. ENDIF
  205. TRANSMIT"ATZ^M"
  206. RGET S5 80 3
  207. RGET S8 80 3
  208. RGET S9 80 3
  209. FIND S8"?"
  210. IF FOUND
  211. MESSAGE"^M^JLocal Telenet level determined"
  212. ASSIGN S0"2"
  213. PAUSE 1
  214. GOTO MENU
  215. ENDIF
  216. FIND S8"MANUAL ANSWER"
  217. IF FOUND
  218. TRANSMIT"^M"
  219. PAUSE 1
  220. GOTO RF
  221. ENDIF
  222. FIND S9"OK"
  223. IF FOUND
  224. TRANSMIT"^C
  225. MESSAGE"^M^JRemote city level determined"
  226. ASSIGN S0"3"
  227. PAUSE 1
  228. GOTO MENU
  229. ENDIF
  230. FIND S9"MANUAL ANSWER"
  231. IF FOUND
  232. TRANSMIT"^M"
  233. PAUSE 1
  234. ENDIF
  235. ;
  236. RF:
  237. TRANSMIT"^M"
  238. WAITFOR"*"10
  239. IF NOT WAITFOR
  240. TRANSMIT"^M"
  241. WAITFOR"*"5
  242. ENDIF
  243. TRANSMIT"I^M"
  244. WAITFOR"IDLE"
  245. PAUSE 3
  246. TRANSMIT"ATZ^M"
  247. WAITFOR"OK"
  248. MESSAGE"^M^JRemote city level determined"
  249. ASSIGN S0"3"
  250. PAUSE 1
  251. GOTO MENU
  252. ENDIF
  253. MESSAGE"^M^JUnable to determine level^M^J"
  254. GOTO OFF1
  255. ;
  256. GO:
  257. SWITCH S0
  258. CASE"1"
  259. GOTO L1
  260. ENDCASE
  261. CASE"2"
  262. CLEAR
  263. FIND S1"NET"
  264. IF FOUND
  265. GOTO NR
  266. ENDIF
  267. GOTO CR
  268. ENDCASE
  269. CASE"3"
  270. CLEAR
  271. GOTO L3
  272. ENDCASE
  273. ENDSWITCH
  274. ;
  275. L1:
  276. CLEAR
  277. MESSAGE"Dialing Local Telenet..."
  278. ;***************************************************************************
  279. ;*  YOUR DIAL DIRECTORY ENTRY FOR TELENET GOES HERE! <----                 *
  280. ;***************************************************************************
  281. DIAL "2"
  282. IF NOT CONNECTED
  283. CLEAR
  284. GOTO OFF1
  285. ENDIF
  286. GOTO L21
  287. ;
  288. L2:
  289. IF NOT CONNECTED
  290. CLEAR
  291. LOCATE 11,7
  292. MESSAGE"Telenet has disconnected - Will Dial starting at the Local level"
  293. LOCATE 0,0
  294. PAUSE 1
  295. ASSIGN S0"1"
  296. GOTO GO
  297. ENDIF
  298. ;
  299. L21:
  300. PAUSE 2
  301. TRANSMIT"^M^M"
  302. WAITFOR"="
  303. TRANSMIT"D1^M"
  304. WAITFOR"@"
  305. ASSIGN S0"2"
  306. FIND S1"NET"
  307. IF FOUND
  308. GOTO NR
  309. ENDIF
  310. GOTO CR
  311. ;
  312. L3:
  313. IF NOT CONNECTED
  314. CLEAR
  315. SWITCH S1
  316. CASE"_NULL"
  317. LOCATE 11,16
  318. MESSAGE"Telenet has disconnected - Area code unknown"
  319. LOCATE 0,0
  320. PAUSE 1
  321. ASSIGN S0"1"
  322. GOTO CC
  323. ENDCASE
  324. DEFAULT
  325. LOCATE 11,7
  326. MESSAGE"Telenet has disconnected - Will dial starting at the Local level"
  327. LOCATE 0,0
  328. PAUSE 1
  329. ASSIGN S0"1"
  330. GOTO L1
  331. ENDCASE
  332. ENDSWITCH
  333. ENDIF
  334. ASSIGN S0"3"
  335. TRANSMIT"ATZ I^M"
  336. WAITFOR "OK" 10
  337. TRANSMIT"^M"
  338. L4:
  339. WAITFOR"*" 5
  340. IF NOT WAITFOR
  341. TRANSMIT"^M"
  342. PAUSE 1
  343. GOTO L4
  344. ENDIF
  345. RC1:
  346. PAUSE 1
  347. TRANSMIT"D"
  348. TRANSMIT S2
  349. GOTO BR1
  350. ;
  351. CC:
  352. SWITCH S0
  353. CASE"3"
  354. GOTO PH 
  355. ENDCASE
  356. ENDSWITCH
  357. CLEAR
  358. MESSAGE"     ════════════════  PCPursuit Exchange Dialing Menu  ═════════════════"
  359. MESSAGE" "
  360. MESSAGE"201 (Newark)              404 (Atlanta)             813 (Tampa)"
  361. MESSAGE"202 (Washington, D.C.)    408 (San Jose)            815 (Chicago)"
  362. MESSAGE"203 (Hartford)            414 (Milwaukee)           816 (Kansas City)"
  363. MESSAGE"206 (Seattle)             415 (San Francisco)       817 (Fort Worth)"
  364. MESSAGE"212 (New York)            503 (Portland)            818 (Glendale)"
  365. MESSAGE"213 (Los Angeles)         602 (Phoenix)             813 (Kansas City)"
  366. MESSAGE"214 (Dallas)              612 (Minneapolis)         916 (Sacramento)"
  367. MESSAGE"215 (Philadelphia)        617 (Boston)              919 (Research Triangle)"
  368. MESSAGE"216 (Cleveland)           618 (St.Louis)"
  369. MESSAGE"301 (Washington, D.C.)    619 (San Diego)"
  370. MESSAGE"303 (Denver)              703 (Washington, D.C.)"
  371. MESSAGE"305 (Miami)               713 (Houston)"
  372. MESSAGE"312 (Chicago)             714 (Santa Ana)"
  373. MESSAGE"313 (Detroit)             718 (New York)"
  374. MESSAGE"314 (St.Louis)            801 (Salt Lake City)"
  375. MESSAGE" "
  376. MESSAGE"      ═══════════════════════════════════════════════════════════════════"
  377. ;
  378. LOCATE 19,0
  379. MESSAGE"      C = Connect to the Net-Exchange         B - Goto All City BBS Menu"
  380. MESSAGE"      D = Disconnect from Telenet"
  381. LOCATE 22,0
  382. MESSAGE"Your Choice ? "
  383. LOCATE 22,15
  384. GET S9
  385. SWITCH S9
  386. CASE"B"
  387. GOTO ME
  388. ENDCASE
  389. CASE"C"
  390. ASSIGN S1 "NET"
  391. GOTO GO
  392. ENDCASE
  393. CASE"201"
  394. ASSIGN S1 "NJNEW"
  395. ENDCASE
  396. CASE"202"
  397. ASSIGN S1 "DCWAS"
  398. ENDCASE
  399. CASE"203"
  400. ASSIGN S1 "CTHAR"
  401. ENDCASE
  402. CASE"206"
  403. ASSIGN S1 "WASEA"
  404. ENDCASE
  405. CASE"212"
  406. ASSIGN S1 "NYNYO"
  407. ENDCASE
  408. CASE"213"
  409. ASSIGN S1 "CALAN"
  410. ENDCASE
  411. CASE"214"
  412. ASSIGN S1 "TXDAL"
  413. ENDCASE
  414. CASE"215"
  415. ASSIGN S1 "PAPHI"
  416. ENDCASE
  417. CASE"216"
  418. ASSIGN S1 "OHCLV"
  419. ENDCASE
  420. CASE"301"
  421. ASSIGN S1 "DCWAS"
  422. ENDCASE
  423. CASE"303"
  424. ASSIGN S1 "CODEN"
  425. ENDCASE
  426. CASE"305"
  427. ASSIGN S1 "FLMIA"
  428. ENDCASE
  429. CASE"312"
  430. ASSIGN S1 "ILCHI"
  431. ENDCASE
  432. CASE"313"
  433. ASSIGN S1 "MIDET"
  434. ENDCASE
  435. CASE"314"
  436. ASSIGN S1 "MOSLO"
  437. ENDCASE
  438. CASE"404"
  439. ASSIGN S1 "GAATL"